home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-04-13 | 6.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| TrID
| Adobe PhotoShop Brush
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 03 aa 3d dc | 00 00 00 08 00 00 00 00 |......=.|........|
|00000010| 00 07 00 00 00 00 00 00 | 1b 64 00 00 1b 64 00 00 |........|.d...d..|
|00000020| 1b 81 00 00 1b 81 00 00 | 1b 83 00 00 1b 83 00 00 |........|........|
|00000030| 1b 83 6f 6e 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |..on sta|rtMovie.|
|00000040| 20 20 20 20 66 69 65 6c | 64 4d 61 6e 61 67 65 72 | fiel|dManager|
|00000050| 0d 20 20 20 20 77 68 65 | 6e 20 6b 65 79 44 6f 77 |. whe|n keyDow|
|00000060| 6e 20 74 68 65 6e 20 67 | 69 76 65 55 70 4b 65 79 |n then g|iveUpKey|
|00000070| 0d 65 6e 64 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |.end sta|rtMovie.|
|00000080| 0d 6f 6e 20 66 69 65 6c | 64 4d 61 6e 61 67 65 72 |.on fiel|dManager|
|00000090| 0d 20 20 20 20 69 66 20 | 74 68 65 20 76 6f 6c 75 |. if |the volu|
|000000a0| 6d 65 20 6f 66 20 73 6f | 75 6e 64 20 31 20 3d 20 |me of so|und 1 = |
|000000b0| 30 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 70 |0 then. | p|
|000000c0| 75 74 20 22 31 22 20 69 | 6e 74 6f 20 66 69 65 6c |ut "1" i|nto fiel|
|000000d0| 64 20 22 61 64 64 41 64 | 64 31 22 0d 20 20 20 20 |d "addAd|d1". |
|000000e0| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 70 75 74 |else. | put|
|000000f0| 20 22 30 22 20 69 6e 74 | 6f 20 66 69 65 6c 64 20 | "0" int|o field |
|00000100| 22 61 64 64 41 64 64 31 | 22 0d 20 20 20 20 65 6e |"addAdd1|". en|
|00000110| 64 20 69 66 0d 65 6e 64 | 20 66 69 65 6c 64 4d 61 |d if.end| fieldMa|
|00000120| 6e 61 67 65 72 0d 0d 0d | 0d 6f 6e 20 73 6f 75 6e |nager...|.on soun|
|00000130| 64 43 68 65 63 6b 0d 20 | 20 20 20 69 66 20 66 69 |dCheck. | if fi|
|00000140| 65 6c 64 20 22 61 64 64 | 41 64 64 31 22 20 3d 20 |eld "add|Add1" = |
|00000150| 31 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 53 |1 then. | S|
|00000160| 6f 75 6e 64 30 0d 20 20 | 20 20 65 6c 73 65 20 0d |ound0. | else .|
|00000170| 20 20 20 20 20 20 20 20 | 73 6f 75 6e 64 32 35 35 | |sound255|
|00000180| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 65 6e 64 20 |. end| if.end |
|00000190| 73 6f 75 6e 64 43 68 65 | 63 6b 0d 0d 0d 0d 6f 6e |soundChe|ck....on|
|000001a0| 20 67 6f 6f 64 42 75 74 | 74 6f 6e 20 63 6f 6d 0d | goodBut|ton com.|
|000001b0| 20 20 20 20 70 75 74 20 | 69 74 65 6d 20 31 20 6f | put |item 1 o|
|000001c0| 66 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |f the na|me of ca|
|000001d0| 73 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |st the c|astNum o|
|000001e0| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|000001f0| 28 29 20 69 6e 74 6f 20 | 63 4e 61 6d 65 0d 20 20 |() into |cName. |
|00000200| 20 20 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 73 | repeat| while s|
|00000210| 74 69 6c 6c 44 6f 77 6e | 28 29 0d 20 20 20 20 20 |tillDown|(). |
|00000220| 20 20 20 69 66 20 72 6f | 6c 6c 4f 76 65 72 28 63 | if ro|llOver(c|
|00000230| 6c 69 63 6b 4f 6e 28 29 | 29 20 74 68 65 6e 0d 20 |lickOn()|) then. |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 74 | | set t|
|00000250| 68 65 20 63 61 73 74 4e | 75 6d 20 6f 66 20 73 70 |he castN|um of sp|
|00000260| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 3d |rite cli|ckOn() =|
|00000270| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00000280| 61 73 74 20 28 63 4e 61 | 6d 65 20 26 20 22 2c 44 |ast (cNa|me & ",D|
|00000290| 6f 77 6e 22 29 0d 20 20 | 20 20 20 20 20 20 65 6c |own"). | el|
|000002a0| 73 65 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |se . | |
|000002b0| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|000002c0| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000002d0| 6e 28 29 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |n() = th|e number|
|000002e0| 20 6f 66 20 63 61 73 74 | 20 28 63 4e 61 6d 65 20 | of cast| (cName |
|000002f0| 26 20 22 2c 55 70 22 29 | 0d 20 20 20 20 20 20 20 |& ",Up")|. |
|00000300| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 20 20 | end if.| |
|00000310| 75 70 64 61 74 65 53 74 | 61 67 65 0d 20 20 20 20 |updateSt|age. |
|00000320| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 20 20 73 |end repe|at. s|
|00000330| 65 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |et the c|astNum o|
|00000340| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|00000350| 28 29 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |() = the| number |
|00000360| 6f 66 20 63 61 73 74 20 | 28 63 4e 61 6d 65 20 26 |of cast |(cName &|
|00000370| 20 22 2c 44 6f 77 6e 22 | 29 20 0d 20 20 20 20 75 | ",Down"|) . u|
|00000380| 70 64 61 74 65 53 74 61 | 67 65 0d 20 20 20 20 69 |pdateSta|ge. i|
|00000390| 66 20 72 6f 6c 6c 4f 76 | 65 72 28 63 6c 69 63 6b |f rollOv|er(click|
|000003a0| 4f 6e 28 29 29 20 74 68 | 65 6e 20 64 6f 20 63 6f |On()) th|en do co|
|000003b0| 6d 0d 65 6e 64 20 67 6f | 6f 64 42 75 74 74 6f 6e |m.end go|odButton|
|000003c0| 0d 0d 6f 6e 20 67 6f 6f | 64 42 75 74 74 6f 6e 32 |..on goo|dButton2|
|000003d0| 20 63 6f 6d 0d 20 20 20 | 20 70 75 74 20 69 74 65 | com. | put ite|
|000003e0| 6d 20 31 20 6f 66 20 74 | 68 65 20 6e 61 6d 65 20 |m 1 of t|he name |
|000003f0| 6f 66 20 63 61 73 74 20 | 74 68 65 20 63 61 73 74 |of cast |the cast|
|00000400| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|00000410| 69 63 6b 4f 6e 28 29 20 | 69 6e 74 6f 20 63 4e 61 |ickOn() |into cNa|
|00000420| 6d 65 0d 20 20 20 20 72 | 65 70 65 61 74 20 77 68 |me. r|epeat wh|
|00000430| 69 6c 65 20 73 74 69 6c | 6c 44 6f 77 6e 28 29 0d |ile stil|lDown().|
|00000440| 20 20 20 20 20 20 20 20 | 69 66 20 72 6f 6c 6c 4f | |if rollO|
|00000450| 76 65 72 28 63 6c 69 63 | 6b 4f 6e 28 29 29 20 74 |ver(clic|kOn()) t|
|00000460| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |hen. | |
|00000470| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|00000480| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|00000490| 6e 28 29 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |n() = th|e number|
|000004a0| 20 6f 66 20 63 61 73 74 | 20 28 63 4e 61 6d 65 20 | of cast| (cName |
|000004b0| 26 20 22 2c 44 6f 77 6e | 22 29 0d 20 20 20 20 20 |& ",Down|"). |
|000004c0| 20 20 20 65 6c 73 65 20 | 0d 20 20 20 20 20 20 20 | else |. |
|000004d0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 | set| the cas|
|000004e0| 74 4e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 63 |tNum of |sprite c|
|000004f0| 6c 69 63 6b 4f 6e 28 29 | 20 3d 20 74 68 65 20 6e |lickOn()| = the n|
|00000500| 75 6d 62 65 72 20 6f 66 | 20 63 61 73 74 20 28 63 |umber of| cast (c|
|00000510| 4e 61 6d 65 20 26 20 22 | 2c 55 70 22 29 0d 20 20 |Name & "|,Up"). |
|00000520| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 | en|d if. |
|00000530| 20 20 20 20 20 75 70 64 | 61 74 65 53 74 61 67 65 | upd|ateStage|
|00000540| 0d 20 20 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |. end| repeat.|
|00000550| 20 20 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 | set |the cast|
|00000560| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|00000570| 69 63 6b 4f 6e 28 29 20 | 3d 20 74 68 65 20 6e 75 |ickOn() |= the nu|
|00000580| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 28 63 4e |mber of |cast (cN|
|00000590| 61 6d 65 20 26 20 22 2c | 55 70 22 29 20 0d 20 20 |ame & ",|Up") . |
|000005a0| 20 20 75 70 64 61 74 65 | 53 74 61 67 65 0d 20 20 | update|Stage. |
|000005b0| 20 20 69 66 20 72 6f 6c | 6c 4f 76 65 72 28 63 6c | if rol|lOver(cl|
|000005c0| 69 63 6b 4f 6e 28 29 29 | 20 74 68 65 6e 20 64 6f |ickOn())| then do|
|000005d0| 20 63 6f 6d 0d 65 6e 64 | 20 67 6f 6f 64 42 75 74 | com.end| goodBut|
|000005e0| 74 6f 6e 32 0d 0d 0d 6f | 6e 20 73 6f 75 6e 64 30 |ton2...o|n sound0|
|000005f0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 76 6f 6c |. set| the vol|
|00000600| 75 6d 65 20 6f 66 20 73 | 6f 75 6e 64 20 31 20 74 |ume of s|ound 1 t|
|00000610| 6f 20 30 0d 65 6e 64 20 | 73 6f 75 6e 64 30 20 20 |o 0.end |sound0 |
|00000620| 20 0d 0d 0d 6f 6e 20 73 | 6f 75 6e 64 32 35 35 0d | ...on s|ound255.|
|00000630| 20 20 20 20 73 65 74 20 | 74 68 65 20 76 6f 6c 75 | set |the volu|
|00000640| 6d 65 20 6f 66 20 73 6f | 75 6e 64 20 31 20 74 6f |me of so|und 1 to|
|00000650| 20 32 35 35 0d 65 6e 64 | 20 73 6f 75 6e 64 32 35 | 255.end| sound25|
|00000660| 35 20 20 20 20 0d 0d 0d | 0d 6f 6e 20 6c 6f 76 65 |5 ...|.on love|
|00000670| 0d 20 20 20 20 67 6c 6f | 62 61 6c 20 68 6f 6c 64 |. glo|bal hold|
|00000680| 52 61 74 65 0d 20 20 20 | 20 73 65 74 20 4e 20 3d |Rate. | set N =|
|00000690| 20 31 0d 20 20 20 20 70 | 75 74 20 74 68 65 20 74 | 1. p|ut the t|
|000006a0| 69 6d 65 72 20 69 6e 74 | 6f 20 4e 0d 20 20 20 20 |imer int|o N. |
|000006b0| 73 65 74 20 68 6f 6c 64 | 52 61 74 65 20 3d 20 31 |set hold|Rate = 1|
|000006c0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |. rep|eat whil|
|000006d0| 65 20 74 68 65 20 74 69 | 6d 65 72 20 3c 20 4e 20 |e the ti|mer < N |
|000006e0| 2b 20 68 6f 6c 64 52 61 | 74 65 0d 20 20 20 20 65 |+ holdRa|te. e|
|000006f0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 6c 6f |nd repea|t.end lo|
|00000700| 76 65 20 20 20 20 0d 0d | 0d 6f 6e 20 50 42 0d 20 |ve ..|.on PB. |
|00000710| 20 20 20 70 75 74 20 28 | 74 68 65 20 6c 6f 63 56 | put (|the locV|
|00000720| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|00000730| 6f 6e 28 29 29 20 2b 20 | 31 20 69 6e 74 6f 20 64 |on()) + |1 into d|
|00000740| 56 0d 20 20 20 20 70 75 | 74 20 28 74 68 65 20 6c |V. pu|t (the l|
|00000750| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocH of s|prite cl|
|00000760| 69 63 6b 6f 6e 28 29 29 | 20 2b 20 31 20 69 6e 74 |ickon())| + 1 int|
|00000770| 6f 20 64 48 0d 20 20 20 | 20 73 65 74 20 74 68 65 |o dH. | set the|
|00000780| 20 6c 6f 63 56 20 6f 66 | 20 73 70 72 69 74 65 20 | locV of| sprite |
|00000790| 63 6c 69 63 6b 4f 6e 28 | 29 20 3d 20 64 56 0d 20 |clickOn(|) = dV. |
|000007a0| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 48 20 | set t|he locH |
|000007b0| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000007c0| 6e 28 29 20 3d 20 64 48 | 0d 20 20 20 20 75 70 44 |n() = dH|. upD|
|000007d0| 61 74 65 53 74 61 67 65 | 0d 20 20 20 20 72 65 70 |ateStage|. rep|
|000007e0| 65 61 74 20 77 68 69 6c | 65 20 73 74 69 6c 6c 44 |eat whil|e stillD|
|000007f0| 6f 77 6e 28 29 0d 20 20 | 20 20 20 20 20 20 69 66 |own(). | if|
|00000800| 20 72 6f 6c 6c 4f 76 65 | 72 28 63 6c 69 63 6b 4f | rollOve|r(clickO|
|00000810| 6e 28 29 29 20 6f 72 20 | c2 0d 20 20 20 20 20 20 |n()) or |.. |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000830| 20 28 28 6d 6f 75 73 65 | 56 28 29 20 3e 3d 20 28 | ((mouse|V() >= (|
|00000840| 64 76 20 2d 20 31 29 20 | 61 6e 64 20 6d 6f 75 73 |dv - 1) |and mous|
|00000850| 65 48 28 29 20 3e 3d 20 | 28 64 48 20 2d 20 31 29 |eH() >= |(dH - 1)|
|00000860| 29 20 61 6e 64 20 28 6d | 6f 75 73 65 56 28 29 20 |) and (m|ouseV() |
|00000870| 3c 3d 20 74 68 65 20 62 | 6f 74 74 6f 6d 20 6f 66 |<= the b|ottom of|
|00000880| 20 73 70 72 69 74 65 20 | 63 6c 69 63 6b 4f 6e 28 | sprite |clickOn(|
|00000890| 29 20 20 20 20 20 20 20 | 61 6e 64 20 c2 0d 20 20 |) |and .. |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008b0| 20 20 20 20 20 20 20 6d | 6f 75 73 65 48 28 29 20 | m|ouseH() |
|000008c0| 3c 3d 20 74 68 65 20 72 | 69 67 68 74 20 6f 66 20 |<= the r|ight of |
|000008d0| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|000008e0| 29 29 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 20 |)) then |. |
|000008f0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 | set| the loc|
|00000900| 56 20 6f 66 20 73 70 72 | 69 74 65 20 63 6c 69 63 |V of spr|ite clic|
|00000910| 6b 4f 6e 28 29 20 3d 20 | 64 56 0d 20 20 20 20 20 |kOn() = |dV. |
|00000920| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c | s|et the l|
|00000930| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocH of s|prite cl|
|00000940| 69 63 6b 4f 6e 28 29 20 | 3d 20 64 48 0d 20 20 20 |ickOn() |= dH. |
|00000950| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 | els|e. |
|00000960| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f | se|t the lo|
|00000970| 63 56 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |cV of sp|rite cli|
|00000980| 63 6b 4f 6e 28 29 20 3d | 20 64 56 20 2d 20 31 0d |ckOn() =| dV - 1.|
|00000990| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 | | set |
|000009a0| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|000009b0| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 3d 20 64 |te click|On() = d|
|000009c0| 48 20 2d 20 31 0d 20 20 | 20 20 20 20 20 20 65 6e |H - 1. | en|
|000009d0| 64 20 69 66 0d 20 20 20 | 20 20 20 20 20 75 70 44 |d if. | upD|
|000009e0| 61 74 65 53 74 61 67 65 | 0d 20 20 20 20 65 6e 64 |ateStage|. end|
|000009f0| 20 72 65 70 65 61 74 0d | 20 20 20 20 70 75 74 20 | repeat.| put |
|00000a00| 72 6f 6c 6c 4f 76 65 72 | 28 63 6c 69 63 6b 4f 6e |rollOver|(clickOn|
|00000a10| 28 29 29 20 69 6e 74 6f | 20 52 0d 20 20 20 20 73 |()) into| R. s|
|00000a20| 65 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |et the l|ocV of s|
|00000a30| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00000a40| 3d 20 64 56 20 2d 20 31 | 0d 20 20 20 20 73 65 74 |= dV - 1|. set|
|00000a50| 20 74 68 65 20 6c 6f 63 | 48 20 6f 66 20 73 70 72 | the loc|H of spr|
|00000a60| 69 74 65 20 63 6c 69 63 | 6b 4f 6e 28 29 20 3d 20 |ite clic|kOn() = |
|00000a70| 64 48 20 2d 20 31 0d 20 | 20 20 20 75 70 44 61 74 |dH - 1. | upDat|
|00000a80| 65 53 74 61 67 65 0d 20 | 20 20 20 72 65 74 75 72 |eStage. | retur|
|00000a90| 6e 20 52 0d 65 6e 64 20 | 50 42 20 20 20 20 0d 0d |n R.end |PB ..|
|00000aa0| 0d 6f 6e 20 70 75 70 70 | 65 74 4f 6e 20 73 70 72 |.on pupp|etOn spr|
|00000ab0| 69 74 65 4e 75 6d 49 74 | 65 6d 0d 20 20 20 20 69 |iteNumIt|em. i|
|00000ac0| 66 20 69 6e 74 65 67 65 | 72 50 28 73 70 72 69 74 |f intege|rP(sprit|
|00000ad0| 65 4e 75 6d 49 74 65 6d | 29 20 74 68 65 6e 20 70 |eNumItem|) then p|
|00000ae0| 75 74 20 73 74 72 69 6e | 67 28 73 70 72 69 74 65 |ut strin|g(sprite|
|00000af0| 4e 75 6d 49 74 65 6d 29 | 20 69 6e 74 6f 20 73 70 |NumItem)| into sp|
|00000b00| 72 69 74 65 4e 75 6d 49 | 74 65 6d 0d 20 20 20 20 |riteNumI|tem. |
|00000b10| 72 65 70 65 61 74 20 77 | 69 74 68 20 6e 20 3d 20 |repeat w|ith n = |
|00000b20| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|00000b30| 6f 66 20 69 74 65 6d 73 | 20 69 6e 20 73 70 72 69 |of items| in spri|
|00000b40| 74 65 4e 75 6d 49 74 65 | 6d 0d 20 20 20 20 20 20 |teNumIte|m. |
|00000b50| 20 20 70 75 70 70 65 74 | 53 70 72 69 74 65 20 69 | puppet|Sprite i|
|00000b60| 6e 74 65 67 65 72 28 69 | 74 65 6d 20 6e 20 6f 66 |nteger(i|tem n of|
|00000b70| 20 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 29 2c | spriteN|umItem),|
|00000b80| 20 54 52 55 45 0d 20 20 | 20 20 65 6e 64 20 72 65 | TRUE. | end re|
|00000b90| 70 65 61 74 0d 65 6e 64 | 20 70 75 70 70 65 74 4f |peat.end| puppetO|
|00000ba0| 6e 0d 0d 0d 0d 6f 6e 20 | 70 75 70 70 65 74 4f 66 |n....on |puppetOf|
|00000bb0| 66 20 73 70 72 69 74 65 | 4e 75 6d 49 74 65 6d 0d |f sprite|NumItem.|
|00000bc0| 20 20 20 20 69 66 20 69 | 6e 74 65 67 65 72 50 28 | if i|ntegerP(|
|00000bd0| 73 70 72 69 74 65 4e 75 | 6d 49 74 65 6d 29 20 74 |spriteNu|mItem) t|
|00000be0| 68 65 6e 20 70 75 74 20 | 73 74 72 69 6e 67 28 73 |hen put |string(s|
|00000bf0| 70 72 69 74 65 4e 75 6d | 49 74 65 6d 29 20 69 6e |priteNum|Item) in|
|00000c00| 74 6f 20 73 70 72 69 74 | 65 4e 75 6d 49 74 65 6d |to sprit|eNumItem|
|00000c10| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |. rep|eat with|
|00000c20| 20 6e 20 3d 20 31 20 74 | 6f 20 74 68 65 20 6e 75 | n = 1 t|o the nu|
|00000c30| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 69 6e |mber of |items in|
|00000c40| 20 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 0d 20 | spriteN|umItem. |
|00000c50| 20 20 20 20 20 20 20 70 | 75 70 70 65 74 53 70 72 | p|uppetSpr|
|00000c60| 69 74 65 20 69 6e 74 65 | 67 65 72 28 69 74 65 6d |ite inte|ger(item|
|00000c70| 20 6e 20 6f 66 20 73 70 | 72 69 74 65 4e 75 6d 49 | n of sp|riteNumI|
|00000c80| 74 65 6d 29 2c 20 46 41 | 4c 53 45 0d 20 20 20 20 |tem), FA|LSE. |
|00000c90| 65 6e 64 20 72 65 70 65 | 61 74 0d 65 6e 64 20 70 |end repe|at.end p|
|00000ca0| 75 70 70 65 74 4f 66 66 | 20 20 20 20 0d 0d 0d 0d |uppetOff| ....|
|00000cb0| 6f 6e 20 70 75 70 70 65 | 74 43 6c 65 61 72 0d 20 |on puppe|tClear. |
|00000cc0| 20 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 6e | repea|t with n|
|00000cd0| 20 3d 20 31 20 74 6f 20 | 32 34 0d 20 20 20 20 20 | = 1 to |24. |
|00000ce0| 20 20 20 69 66 20 74 68 | 65 20 74 79 70 65 20 6f | if th|e type o|
|00000cf0| 66 20 73 70 72 69 74 65 | 20 6e 20 3c 3e 20 30 20 |f sprite| n <> 0 |
|00000d00| 74 68 65 6e 20 70 75 70 | 70 65 74 53 70 72 69 74 |then pup|petSprit|
|00000d10| 65 20 6e 2c 20 46 41 4c | 53 45 0d 20 20 20 20 65 |e n, FAL|SE. e|
|00000d20| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 70 75 |nd repea|t.end pu|
|00000d30| 70 70 65 74 43 6c 65 61 | 72 20 20 20 20 0d 0d 0d |ppetClea|r ...|
|00000d40| 0d 6f 6e 20 70 75 70 70 | 65 74 41 6c 6c 20 20 20 |.on pupp|etAll |
|00000d50| 20 0d 20 20 20 20 72 65 | 70 65 61 74 20 77 69 74 | . re|peat wit|
|00000d60| 68 20 6e 20 3d 20 31 20 | 74 6f 20 32 34 0d 20 20 |h n = 1 |to 24. |
|00000d70| 20 20 20 20 20 20 69 66 | 20 74 68 65 20 74 79 70 | if| the typ|
|00000d80| 65 20 6f 66 20 73 70 72 | 69 74 65 20 6e 20 3c 3e |e of spr|ite n <>|
|00000d90| 20 30 20 74 68 65 6e 20 | 70 75 70 70 65 74 53 70 | 0 then |puppetSp|
|00000da0| 72 69 74 65 20 6e 2c 20 | 54 52 55 45 0d 20 20 20 |rite n, |TRUE. |
|00000db0| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 | end rep|eat.end |
|00000dc0| 70 75 70 70 65 74 41 6c | 6c 20 20 20 20 0d 0d 0d |puppetAl|l ...|
|00000dd0| 0d 6f 6e 20 63 75 72 43 | 68 61 6e 31 0d 20 20 20 |.on curC|han1. |
|00000de0| 20 77 68 65 6e 20 6d 6f | 75 73 65 44 6f 77 6e 20 | when mo|useDown |
|00000df0| 74 68 65 6e 20 6e 6f 74 | 68 69 6e 67 20 0d 20 20 |then not|hing . |
|00000e00| 20 20 63 75 72 73 6f 72 | 20 31 32 38 0d 20 20 20 | cursor| 128. |
|00000e10| 20 6c 6f 76 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | love. | cursor|
|00000e20| 20 31 32 39 0d 20 20 20 | 20 6c 6f 76 65 0d 20 20 | 129. | love. |
|00000e30| 20 20 63 75 72 73 6f 72 | 20 31 33 30 0d 20 20 20 | cursor| 130. |
|00000e40| 20 6c 6f 76 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | love. | cursor|
|00000e50| 20 31 33 31 0d 20 20 20 | 20 6c 6f 76 65 0d 20 20 | 131. | love. |
|00000e60| 20 20 63 75 72 73 6f 72 | 20 31 33 32 0d 20 20 20 | cursor| 132. |
|00000e70| 20 6c 6f 76 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | love. | cursor|
|00000e80| 20 31 33 33 0d 65 6e 64 | 20 63 75 72 43 68 61 6e | 133.end| curChan|
|00000e90| 31 0d 0d 0d 6f 6e 20 63 | 75 72 43 68 61 6e 32 0d |1...on c|urChan2.|
|00000ea0| 20 20 20 20 77 68 65 6e | 20 6d 6f 75 73 65 44 6f | when| mouseDo|
|00000eb0| 77 6e 20 74 68 65 6e 20 | 6e 6f 74 68 69 6e 67 20 |wn then |nothing |
|00000ec0| 0d 20 20 20 20 63 75 72 | 73 6f 72 20 31 38 37 0d |. cur|sor 187.|
|00000ed0| 20 20 20 20 6c 6f 76 65 | 0d 20 20 20 20 63 75 72 | love|. cur|
|00000ee0| 73 6f 72 20 31 38 38 0d | 20 20 20 20 6c 6f 76 65 |sor 188.| love|
|00000ef0| 0d 20 20 20 20 63 75 72 | 73 6f 72 20 31 38 39 0d |. cur|sor 189.|
|00000f00| 20 20 20 20 6c 6f 76 65 | 0d 20 20 20 20 63 75 72 | love|. cur|
|00000f10| 73 6f 72 20 31 39 30 0d | 20 20 20 20 6c 6f 76 65 |sor 190.| love|
|00000f20| 0d 20 20 20 20 63 75 72 | 73 6f 72 20 31 39 31 0d |. cur|sor 191.|
|00000f30| 20 20 20 20 6c 6f 76 65 | 20 0d 20 20 20 20 63 75 | love| . cu|
|00000f40| 72 73 6f 72 20 31 39 32 | 0d 20 20 20 20 6c 6f 76 |rsor 192|. lov|
|00000f50| 65 0d 20 20 20 20 63 75 | 72 73 6f 72 20 31 39 33 |e. cu|rsor 193|
|00000f60| 0d 65 6e 64 20 63 75 72 | 43 68 61 6e 32 0d 0d 0d |.end cur|Chan2...|
|00000f70| 6f 6e 20 63 75 72 43 68 | 61 6e 33 0d 20 20 20 20 |on curCh|an3. |
|00000f80| 77 68 65 6e 20 6d 6f 75 | 73 65 44 6f 77 6e 20 74 |when mou|seDown t|
|00000f90| 68 65 6e 20 6e 6f 74 68 | 69 6e 67 20 0d 20 20 20 |hen noth|ing . |
|00000fa0| 20 63 75 72 73 6f 72 20 | 31 37 31 0d 20 20 20 20 | cursor |171. |
|00000fb0| 6c 6f 76 65 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |love. | cursor |
|00000fc0| 31 37 32 0d 20 20 20 20 | 6c 6f 76 65 0d 20 20 20 |172. |love. |
|00000fd0| 20 63 75 72 73 6f 72 20 | 31 37 33 0d 20 20 20 20 | cursor |173. |
|00000fe0| 6c 6f 76 65 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |love. | cursor |
|00000ff0| 31 37 34 0d 20 20 20 20 | 6c 6f 76 65 0d 20 20 20 |174. |love. |
|00001000| 20 63 75 72 73 6f 72 20 | 31 37 35 0d 20 20 20 20 | cursor |175. |
|00001010| 6c 6f 76 65 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |love. | cursor |
|00001020| 31 37 36 0d 65 6e 64 20 | 63 75 72 43 68 61 6e 33 |176.end |curChan3|
|00001030| 20 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 | ...o|n cursor|
|00001040| 4e 75 6d 62 65 72 0d 20 | 20 20 20 77 68 65 6e 20 |Number. | when |
|00001050| 6d 6f 75 73 65 44 6f 77 | 6e 20 74 68 65 6e 20 63 |mouseDow|n then c|
|00001060| 75 72 73 6f 72 20 33 30 | 34 0d 65 6e 64 20 63 75 |ursor 30|4.end cu|
|00001070| 72 73 6f 72 4e 75 6d 62 | 65 72 20 20 20 0d 0d 0d |rsorNumb|er ...|
|00001080| 6f 6e 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 32 |on curso|rNumber2|
|00001090| 30 30 0d 20 20 20 20 63 | 75 72 73 6f 72 20 32 30 |00. c|ursor 20|
|000010a0| 30 0d 65 6e 64 20 63 75 | 72 73 6f 72 4e 75 6d 62 |0.end cu|rsorNumb|
|000010b0| 65 72 32 30 30 20 20 20 | 0d 0d 0d 6f 6e 20 63 75 |er200 |...on cu|
|000010c0| 72 73 6f 72 4e 75 6d 62 | 65 72 32 36 30 0d 20 20 |rsorNumb|er260. |
|000010d0| 20 20 63 75 72 73 6f 72 | 20 32 36 30 0d 65 6e 64 | cursor| 260.end|
|000010e0| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 32 36 30 | cursorN|umber260|
|000010f0| 20 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 | ...o|n cursor|
|00001100| 4e 75 6d 62 65 72 32 38 | 30 0d 20 20 20 20 63 75 |Number28|0. cu|
|00001110| 72 73 6f 72 20 32 38 30 | 0d 65 6e 64 20 63 75 72 |rsor 280|.end cur|
|00001120| 73 6f 72 4e 75 6d 62 65 | 72 32 38 30 20 20 20 20 |sorNumbe|r280 |
|00001130| 0d 0d 0d 6f 6e 20 63 75 | 72 73 6f 72 4e 75 6d 62 |...on cu|rsorNumb|
|00001140| 65 72 33 30 33 0d 20 20 | 20 20 63 75 72 73 6f 72 |er303. | cursor|
|00001150| 20 33 30 33 0d 65 6e 64 | 20 63 75 72 73 6f 72 4e | 303.end| cursorN|
|00001160| 75 6d 62 65 72 33 30 33 | 20 20 20 20 0d 0d 0d 6f |umber303| ...o|
|00001170| 6e 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 33 30 |n cursor|Number30|
|00001180| 35 0d 20 20 20 20 63 75 | 72 73 6f 72 20 33 30 35 |5. cu|rsor 305|
|00001190| 0d 65 6e 64 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |.end cur|sorNumbe|
|000011a0| 72 33 30 35 20 20 20 0d | 0d 0d 6f 6e 20 63 75 72 |r305 .|..on cur|
|000011b0| 73 6f 72 4e 75 6d 62 65 | 72 33 30 36 0d 20 20 20 |sorNumbe|r306. |
|000011c0| 20 63 75 72 73 6f 72 20 | 33 30 36 0d 65 6e 64 20 | cursor |306.end |
|000011d0| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 36 20 |cursorNu|mber306 |
|000011e0| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e | ...on| cursorN|
|000011f0| 75 6d 62 65 72 33 30 37 | 0d 20 20 20 20 63 75 72 |umber307|. cur|
|00001200| 73 6f 72 20 33 30 37 0d | 65 6e 64 20 63 75 72 73 |sor 307.|end curs|
|00001210| 6f 72 4e 75 6d 62 65 72 | 33 30 37 20 20 20 20 0d |orNumber|307 .|
|00001220| 0d 0d 6f 6e 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |..on cur|sorNumbe|
|00001230| 72 33 30 38 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |r308. | cursor |
|00001240| 33 30 38 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |308.end |cursorNu|
|00001250| 6d 62 65 72 33 30 38 20 | 20 20 0d 0d 0d 6f 6e 20 |mber308 | ...on |
|00001260| 63 75 72 73 6f 72 4e 75 | 6d 62 65 72 33 30 39 0d |cursorNu|mber309.|
|00001270| 20 20 20 20 63 75 72 73 | 6f 72 20 33 30 39 0d 65 | curs|or 309.e|
|00001280| 6e 64 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 33 |nd curso|rNumber3|
|00001290| 30 39 0d 0d 0d 6f 6e 20 | 63 75 72 73 6f 72 4e 75 |09...on |cursorNu|
|000012a0| 6d 62 65 72 33 31 30 0d | 20 20 20 20 63 75 72 73 |mber310.| curs|
|000012b0| 6f 72 20 33 31 30 0d 65 | 6e 64 20 63 75 72 73 6f |or 310.e|nd curso|
|000012c0| 72 4e 75 6d 62 65 72 33 | 31 30 20 20 20 20 0d 0d |rNumber3|10 ..|
|000012d0| 0d 6f 6e 20 63 75 72 73 | 6f 72 4e 75 6d 62 65 72 |.on curs|orNumber|
|000012e0| 31 0d 20 20 20 20 63 75 | 72 73 6f 72 20 2d 31 0d |1. cu|rsor -1.|
|000012f0| 65 6e 64 20 63 75 72 73 | 6f 72 4e 75 6d 62 65 72 |end curs|orNumber|
|00001300| 31 20 20 20 20 0d 0d 0d | 6f 6e 20 64 72 61 67 53 |1 ...|on dragS|
|00001310| 70 63 69 61 6c 0d 20 20 | 20 20 70 75 70 70 65 74 |pcial. | puppet|
|00001320| 53 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |Sprite c|lickOn()|
|00001330| 2c 20 54 52 55 45 0d 20 | 20 20 20 0d 20 20 20 20 |, TRUE. | . |
|00001340| 70 75 74 20 6d 6f 75 73 | 65 48 28 29 20 2d 20 74 |put mous|eH() - t|
|00001350| 68 65 20 6c 6f 63 48 20 | 6f 66 20 73 70 72 69 74 |he locH |of sprit|
|00001360| 65 20 63 6c 69 63 6b 4f | 6e 28 29 20 69 6e 74 6f |e clickO|n() into|
|00001370| 20 6d 48 0d 20 20 20 20 | 70 75 74 20 6d 6f 75 73 | mH. |put mous|
|00001380| 65 56 28 29 20 2d 20 74 | 68 65 20 6c 6f 63 56 20 |eV() - t|he locV |
|00001390| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000013a0| 6e 28 29 20 69 6e 74 6f | 20 6d 56 0d 20 20 20 20 |n() into| mV. |
|000013b0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |. rep|eat whil|
|000013c0| 65 20 73 74 69 6c 6c 44 | 6f 77 6e 28 29 0d 20 20 |e stillD|own(). |
|000013d0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f | se|t the lo|
|000013e0| 63 48 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |cH of sp|rite cli|
|000013f0| 63 6b 4f 6e 28 29 20 3d | 20 6d 6f 75 73 65 48 28 |ckOn() =| mouseH(|
|00001400| 29 20 2d 20 6d 48 0d 20 | 20 20 20 20 20 20 20 73 |) - mH. | s|
|00001410| 65 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |et the l|ocV of s|
|00001420| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00001430| 3d 20 6d 6f 75 73 65 56 | 28 29 20 2d 20 6d 56 0d |= mouseV|() - mV.|
|00001440| 20 20 20 20 20 20 20 20 | 75 70 44 61 74 65 53 74 | |upDateSt|
|00001450| 61 67 65 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 |age. |end repe|
|00001460| 61 74 0d 65 6e 64 20 64 | 72 61 67 53 70 63 69 61 |at.end d|ragSpcia|
|00001470| 6c 20 20 20 20 0d 0d 0d | 6f 6e 20 6d 6f 76 65 53 |l ...|on moveS|
|00001480| 70 72 69 74 65 20 73 70 | 4e 75 6d 2c 20 48 2c 20 |prite sp|Num, H, |
|00001490| 56 0d 20 20 20 20 0d 20 | 20 20 20 70 75 74 20 35 |V. . | put 5|
|000014a0| 20 69 6e 74 6f 20 6d 6f | 76 65 52 61 74 65 0d 20 | into mo|veRate. |
|000014b0| 20 20 20 0d 20 20 20 20 | 70 75 70 70 65 74 53 70 | . |puppetSp|
|000014c0| 72 69 74 65 20 73 70 4e | 75 6d 2c 20 54 52 55 45 |rite spN|um, TRUE|
|000014d0| 0d 20 20 20 20 70 75 74 | 20 74 68 65 20 6c 6f 63 |. put| the loc|
|000014e0| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |H of spr|ite spNu|
|000014f0| 6d 20 69 6e 74 6f 20 73 | 48 0d 20 20 20 20 70 75 |m into s|H. pu|
|00001500| 74 20 74 68 65 20 6c 6f | 63 56 20 6f 66 20 73 70 |t the lo|cV of sp|
|00001510| 72 69 74 65 20 73 70 4e | 75 6d 20 69 6e 74 6f 20 |rite spN|um into |
|00001520| 73 56 0d 20 20 20 20 0d | 20 20 20 20 70 75 74 20 |sV. .| put |
|00001530| 48 20 2d 20 73 48 20 69 | 6e 74 6f 20 6d 6f 76 65 |H - sH i|nto move|
|00001540| 48 20 0d 20 20 20 20 70 | 75 74 20 56 20 2d 20 73 |H . p|ut V - s|
|00001550| 56 20 69 6e 74 6f 20 6d | 6f 76 65 56 0d 20 20 20 |V into m|oveV. |
|00001560| 20 0d 20 20 20 20 70 75 | 74 20 61 62 73 28 6d 6f | . pu|t abs(mo|
|00001570| 76 65 48 20 2a 20 28 61 | 62 73 28 6d 6f 76 65 48 |veH * (a|bs(moveH|
|00001580| 29 20 3e 3d 20 61 62 73 | 28 6d 6f 76 65 56 29 29 |) >= abs|(moveV))|
|00001590| 20 2b 20 c2 0d 20 20 20 | 20 6d 6f 76 65 56 20 2a | + .. | moveV *|
|000015a0| 20 28 61 62 73 28 6d 6f | 76 65 48 29 20 3c 20 61 | (abs(mo|veH) < a|
|000015b0| 62 73 28 6d 6f 76 65 56 | 29 29 29 20 69 6e 74 6f |bs(moveV|))) into|
|000015c0| 20 72 65 70 65 61 74 54 | 69 6d 65 0d 20 20 20 20 | repeatT|ime. |
|000015d0| 0d 20 20 20 20 69 66 20 | 72 65 70 65 61 74 54 69 |. if |repeatTi|
|000015e0| 6d 65 20 3c 3e 20 30 20 | 74 68 65 6e 0d 20 20 20 |me <> 0 |then. |
|000015f0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 69 66 | . | if|
|00001600| 20 6d 6f 76 65 48 20 3c | 3e 20 30 20 74 68 65 6e | moveH <|> 0 then|
|00001610| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 70 75 | . | pu|
|00001620| 74 20 28 61 62 73 28 6d | 6f 76 65 48 29 20 3e 3d |t (abs(m|oveH) >=|
|00001630| 20 61 62 73 28 6d 6f 76 | 65 56 29 29 20 2a 20 6d | abs(mov|eV)) * m|
|00001640| 6f 76 65 48 20 2f 20 61 | 62 73 28 6d 6f 76 65 48 |oveH / a|bs(moveH|
|00001650| 29 20 2b c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |) +.. | |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 61 62 | | (ab|
|00001670| 73 28 6d 6f 76 65 48 29 | 20 3c 20 61 62 73 28 6d |s(moveH)| < abs(m|
|00001680| 6f 76 65 56 29 29 20 2a | 20 31 2e 30 20 2a 20 6d |oveV)) *| 1.0 * m|
|00001690| 6f 76 65 48 20 2f 20 72 | 65 70 65 61 74 54 69 6d |oveH / r|epeatTim|
|000016a0| 65 20 69 6e 74 6f 20 70 | 6c 75 73 48 0d 20 20 20 |e into p|lusH. |
|000016b0| 20 20 20 20 20 65 6c 73 | 65 20 70 75 74 20 30 20 | els|e put 0 |
|000016c0| 69 6e 74 6f 20 70 6c 75 | 73 48 0d 20 20 20 20 20 |into plu|sH. |
|000016d0| 20 20 20 69 66 20 6d 6f | 76 65 56 20 3c 3e 20 30 | if mo|veV <> 0|
|000016e0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 20 20 | then. | |
|000016f0| 20 20 70 75 74 20 28 61 | 62 73 28 6d 6f 76 65 56 | put (a|bs(moveV|
|00001700| 29 20 3e 3d 20 61 62 73 | 28 6d 6f 76 65 48 29 29 |) >= abs|(moveH))|
|00001710| 20 2a 20 6d 6f 76 65 56 | 20 2f 20 61 62 73 28 6d | * moveV| / abs(m|
|00001720| 6f 76 65 56 29 20 2b c2 | 0d 20 20 20 20 20 20 20 |oveV) +.|. |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001740| 20 28 61 62 73 28 6d 6f | 76 65 56 29 20 3c 20 61 | (abs(mo|veV) < a|
|00001750| 62 73 28 6d 6f 76 65 48 | 29 29 20 2a 20 31 2e 30 |bs(moveH|)) * 1.0|
|00001760| 20 2a 20 6d 6f 76 65 56 | 20 2f 20 72 65 70 65 61 | * moveV| / repea|
|00001770| 74 54 69 6d 65 20 69 6e | 74 6f 20 70 6c 75 73 56 |tTime in|to plusV|
|00001780| 0d 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 70 75 |. | else pu|
|00001790| 74 20 30 20 69 6e 74 6f | 20 70 6c 75 73 56 0d 20 |t 0 into| plusV. |
|000017a0| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 | .| |
|000017b0| 72 65 70 65 61 74 20 77 | 69 74 68 20 6e 20 3d 20 |repeat w|ith n = |
|000017c0| 35 30 30 20 74 6f 20 72 | 65 70 65 61 74 54 69 6d |500 to r|epeatTim|
|000017d0| 65 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 |e. | . |
|000017e0| 20 20 20 20 20 20 20 20 | 20 20 20 70 75 74 20 73 | | put s|
|000017f0| 48 20 2b 20 70 6c 75 73 | 48 20 69 6e 74 6f 20 73 |H + plus|H into s|
|00001800| 48 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 70 75 |H. | pu|
|00001810| 74 20 73 56 20 2b 20 70 | 6c 75 73 56 20 69 6e 74 |t sV + p|lusV int|
|00001820| 6f 20 73 56 0d 20 20 20 | 20 20 20 20 20 20 20 20 |o sV. | |
|00001830| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 73 65 | . | se|
|00001840| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|00001850| 72 69 74 65 20 73 70 4e | 75 6d 20 3d 20 69 6e 74 |rite spN|um = int|
|00001860| 65 67 65 72 28 73 48 29 | 0d 20 20 20 20 20 20 20 |eger(sH)|. |
|00001870| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 | set| the loc|
|00001880| 56 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |V of spr|ite spNu|
|00001890| 6d 20 3d 20 69 6e 74 65 | 67 65 72 28 73 56 29 0d |m = inte|ger(sV).|
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 75 70 44 61 | | upDa|
|000018b0| 74 65 53 74 61 67 65 0d | 20 20 20 20 20 20 20 20 |teStage.| |
|000018c0| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 65 6e 64 | . | end|
|000018d0| 20 72 65 70 65 61 74 0d | 20 20 20 20 20 20 20 20 | repeat.| |
|000018e0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |. end| if. |
|000018f0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |. set| the loc|
|00001900| 48 20 6f 66 20 73 70 72 | 69 74 65 20 73 70 4e 75 |H of spr|ite spNu|
|00001910| 6d 20 3d 20 48 0d 20 20 | 20 20 73 65 74 20 74 68 |m = H. | set th|
|00001920| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|00001930| 20 73 70 4e 75 6d 20 3d | 20 56 0d 20 20 20 20 75 | spNum =| V. u|
|00001940| 70 64 61 74 65 53 74 61 | 67 65 0d 65 6e 64 20 6d |pdateSta|ge.end m|
|00001950| 6f 76 65 53 70 72 69 74 | 65 20 20 20 20 0d 0d 0d |oveSprit|e ...|
|00001960| 6f 6e 20 67 69 76 65 55 | 70 4b 65 79 0d 20 20 20 |on giveU|pKey. |
|00001970| 20 69 66 20 74 68 65 20 | 6b 65 79 43 6f 64 65 20 | if the |keyCode |
|00001980| 3d 20 35 33 20 74 68 65 | 6e 20 67 6f 20 74 6f 20 |= 53 the|n go to |
|00001990| 22 4e 45 58 54 22 0d 20 | 20 20 20 65 6c 73 65 0d |"NEXT". | else.|
|000019a0| 20 20 20 20 20 20 20 20 | 69 66 20 74 68 65 20 6b | |if the k|
|000019b0| 65 79 43 6f 64 65 20 3d | 20 33 36 20 74 68 65 6e |eyCode =| 36 then|
|000019c0| 20 70 6c 61 79 20 22 50 | 61 6e 69 63 22 0d 20 20 | play "P|anic". |
|000019d0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 | el|se. |
|000019e0| 20 20 20 20 20 20 20 69 | 66 20 6b 65 79 28 29 20 | i|f key() |
|000019f0| 3d 20 22 51 22 20 61 6e | 64 20 63 6f 6d 6d 61 6e |= "Q" an|d comman|
|00001a00| 64 44 6f 77 6e 28 29 20 | 74 68 65 6e 20 70 6c 61 |dDown() |then pla|
|00001a10| 79 20 22 51 75 69 74 22 | 0d 20 20 20 20 20 20 20 |y "Quit"|. |
|00001a20| 20 65 6e 64 20 69 66 0d | 20 20 20 20 65 6e 64 20 | end if.| end |
|00001a30| 69 66 0d 65 6e 64 20 69 | 66 20 20 20 0d 65 6e 64 |if.end i|f .end|
|00001a40| 20 67 69 76 65 55 70 4b | 65 79 0d 0d 0d 0d 6f 6e | giveUpK|ey....on|
|00001a50| 20 63 6f 6c 6f 72 43 68 | 61 6e 67 65 0d 73 65 74 | colorCh|ange.set|
|00001a60| 20 74 68 65 20 63 6f 6c | 6f 72 44 65 70 74 68 20 | the col|orDepth |
|00001a70| 3d 33 32 0d 69 66 20 63 | 6f 6c 6f 72 44 65 70 74 |=32.if c|olorDept|
|00001a80| 68 28 29 20 3d 20 33 32 | 20 74 68 65 6e 20 73 65 |h() = 32| then se|
|00001a90| 74 20 4f 48 54 53 55 4b | 49 20 3d 20 33 32 20 20 |t OHTSUK|I = 32 |
|00001aa0| 20 0d 65 6c 73 65 0d 73 | 65 74 20 74 68 65 20 63 | .else.s|et the c|
|00001ab0| 6f 6c 6f 72 44 65 70 74 | 68 20 3d 31 36 0d 69 66 |olorDept|h =16.if|
|00001ac0| 20 63 6f 6c 6f 72 44 65 | 70 74 68 28 29 20 3d 20 | colorDe|pth() = |
|00001ad0| 31 36 20 74 68 65 6e 20 | 73 65 74 20 4f 48 54 53 |16 then |set OHTS|
|00001ae0| 55 4b 49 20 3d 20 31 36 | 20 20 20 20 0d 65 6c 73 |UKI = 16| .els|
|00001af0| 65 0d 73 65 74 20 74 68 | 65 20 63 6f 6c 6f 72 44 |e.set th|e colorD|
|00001b00| 65 70 74 68 20 3d 38 0d | 69 66 20 63 6f 6c 6f 72 |epth =8.|if color|
|00001b10| 44 65 70 74 68 28 29 20 | 3d 20 38 20 74 68 65 6e |Depth() |= 8 then|
|00001b20| 20 73 65 74 20 4f 48 54 | 53 55 4b 49 20 3d 20 38 | set OHT|SUKI = 8|
|00001b30| 20 20 20 20 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 | .end| if.end |
|00001b40| 69 66 0d 65 6e 64 20 69 | 66 20 0d 65 6e 64 20 63 |if.end i|f .end c|
|00001b50| 6f 6c 6f 72 43 68 61 6e | 67 65 0d 0d 0d 6f 6e 20 |olorChan|ge...on |
|00001b60| 63 6f 6c 6f 72 43 68 61 | 6e 67 65 38 0d 73 65 74 |colorCha|nge8.set|
|00001b70| 20 74 68 65 20 63 6f 6c | 6f 72 44 65 70 74 68 20 | the col|orDepth |
|00001b80| 3d 20 38 20 0d 65 6e 64 | 20 63 6f 6c 6f 72 43 68 |= 8 .end| colorCh|
|00001b90| 61 6e 67 65 38 0d 1c 91 | e5 8c 8e 20 90 5e 90 6c |ange8...|... .^.l|
|00001ba0| 20 2d 20 8a 94 8e ae 89 | ef 8e d0 20 83 55 a5 83 | - .....|... .U..|
|00001bb0| 8f 83 93 00 00 | |..... | |
+--------+-------------------------+-------------------------+--------+--------+
